% multiply parzen window to
% a set of target freq
% and average the vlues
% bug fixed 07.10.2002
% latest date 07.10.2002

function[CPLX] = doparzen(CH1,CH2,TLine, TRad, PAR),
CPLX = 0;
    if TRad > 1,
	%----- parzening line 2 to radius -----------
     for l = 1:TRad-1,
	CPLX = CPLX + CH1(TLine-l)*CH2(TLine-l)*PAR(l+1);
	CPLX = CPLX + CH1(TLine+l)*CH2(TLine+l)*PAR(l+1);
end;
	%----- parzening line 1 -----------
CPLX = CPLX + CH1(TLine)*CH2(TLine)*PAR(1);
else,
CPLX = CH1(TLine)*CH2(TLine);
end;
